Public Class frmManterEstimativa

    Private Sub btnNovaAtividade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNovaAtividade.Click
        Dim objTela As frmNovasAtividade
        Try
            objTela = New frmNovasAtividade
            objTela.Show()
        Finally

        End Try
    End Sub
End Class